for ($i=1;$i<=1000;$i++) {
    for ($j=1;$j<=$i;$j++) {
        $k=1000-$i-$j;
        if (($i**2+$j**2)==$k**2) {
            print "".($i*$j*$k)."\n";
        }
    }
}